home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed1.d64 / alphabet (.txt) next >
Commodore BASIC  |  2007-02-04  |  8KB  |  252 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 20 REM WRITTEN BY B.JOHNSON/                   D.NEILSON/D.SCHEELE
  9. 35 IFUW=0THENSYSUU,15
  10. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  11. 45 GETUI$:IFUI$=""THEN45
  12. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  13. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  14. 60 IFUR=ULTHEN45
  15. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  16. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  17. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  18. 95 IFLEN(US$)=0THEN110
  19. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  20. 105 RETURN
  21. 110 IFUA=46THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  29. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  30. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  31. 300 REM DERIVED FROM COMMODORE ONTARIO      EDUCATIONAL SOFTWARE PROJECT 1983
  32. 310 REM PROJECT DIRECTOR: FRANK WINTER
  33. 320 REM PROGRAM NAME: ALPHABET
  34. 330 REM WRITTEN BY B.JOHNSON/                              D.NEILSON/D.SCHEELE
  35. 340 REM REVISED BY CHRIS RAISKUMS
  36. 347 GOSUB35:US$=""
  37. 350 REM UPDATED BY BILL CUMBERLAND 90
  38. 400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
  39. 402 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  40. 404 [153]"     * (null)O BE READ TO THE STUDENT               - IF NECESSARY.STOP"
  41. 406 [141]790:[153]"   (null)OUR COMPUTER IS GOING TO ASK YOU"
  42. 408 [153]"   TO FILL IN MISSING LETTERS IN THE       ALPHABET.
  43. 410 PRINT"   [217]OU  WILL  BE  GIVEN A SEQUENCE"
  44. 415 PRINT"   OF LETTERS WITH ONE OR MORE OF THEM"
  45. 420 PRINT"   MISSING."
  46. 425 PRINT"   [217]OU WILL BE ASKED TO FILL IN "
  47. 430 PRINT"   THE ONES THAT ARE MISSING."
  48. 435 PRINT"   [217]OU CAN SELECT THE LEVEL OF             DIFFICULTY."
  49. 440 GOSUB820
  50. 445 PRINT"[147]  [212]HERE ARE 3 LEVELS OF DIFFICULTY:
  51. 450 [153]"     LEVEL 1WAIT : 1 LETTER MISSING"
  52. 455 [153]"     LEVEL 2WAIT : 2 LETTER MISSING"
  53. 460 [153]"     LEVEL 3WAIT : 3 LETTER MISSING":[141]791
  54. 465 [153]"  (null)HE COMPUTER WILL ASK YOU TEN"
  55. 470 [153]"  QUESTIONS AND THEN PRINT OUT A"
  56. 475 [153]"  LIST OF RESULTS FOR YOU.":[141]791
  57. 480 [153]"  CHR$(null)(null)STR$ (null)(null)LEN(null) !"
  58. 485 [141]820
  59. 490 [151]UT,UU%:[151]UY,6:[151]UX,6:[151]646,15
  60. 495 [137]1000
  61. 700 [143] <YES>
  62. 705 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  63. 710 [151]54296,15:[151]54277,42:[151]54278,250
  64. 715 [151]54276,23:[151]54273,23:[151]54272,191
  65. 720 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  66. 725 [151]54296,0:[142]
  67. 730 [143] <NO>
  68. 735 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  69. 740 [151]54296,15:[151]54277,18:[151]54278,242
  70. 745 [151]54276,33:[151]54273,4:[151]54272,48
  71. 750 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  72. 755 [151]54296,0:[142]
  73. 760 [143] <BLIP>
  74. 765 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  75. 770 [151]54296,15:[151]54277,42:[151]54278,250
  76. 775 [151]54276,23:[151]54273,23:[151]54272,191
  77. 780 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  78. 785 [151]54296,0:[142]
  79. 790 [129]T[178]1[164]500:[130]:[142]
  80. 791 [129]T[178]1[164]1000:[130]:[142]
  81. 792 [129]T[178]1[164]2000:[130]:[142]
  82. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,1:[151]UX,1:[151]646,5
  83. 801 [153]"      A TPUG EDUCATIONAL PROGRAM":[141]790
  84. 802 [153]"          FOR C 64 COMPUTERS":[141]790
  85. 803 [153]"              GRADES K-2":[141]790
  86. 804 [153]"                                        WAIT";
  87. 805 [153]"                                        WAIT";
  88. 806 [153]"               ALPHABET                 WAIT";
  89. 807 [153]"                                        WAIT";
  90. 808 [153]"                                        WAIT":[141]791:[141]760
  91. 809 [153]"          INSTRUCTIONS?  Y/N
  92. 810 GETUI$:IFUI$<>"Y"ANDUI$<>"N"THEN810
  93. 811 IFUI$="Y"THEN GOSUB400
  94. 812 PRINT"[147]  AND AWAY WE GO......."
  95. 813 GOSUB791:GOSUB700:GOSUB790
  96. 814 GOTO1000
  97. 820 GOSUB790:GOSUB760
  98. 823 POKEUN,0:PRINTLEFT$(UD$,24);"  [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146]"
  99. 825 GETUI$:IFUI$<>" "THEN825
  100. 830 RETURN
  101. 835 POKEUN,0:PRINTLEFT$(UD$,24);"[153] PRESS SPACE BAR TO CONTINUE [146][155]"
  102. 840 GETUI$:IFUI$<>" "THEN840
  103. 845 RETURN
  104. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  105. 855 PRINT" --------------------------------------"
  106. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,6);"ANSWER, THEN PRESS RETURN[146]"
  107. 865 UH=0:PRINT"":RETURN
  108. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  109. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  110. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  111. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  112. 905 UD$="":UP$="                                      "
  113. 906 DIMU$(26)
  114. 907 ST$="ABCDEFGHIJKLMNOPQRSTUVWXYZ ?.01234567890"
  115. 909 RETURN
  116. 910 GOSUB900:PRINT"[147] "
  117. 920 GOTO 800
  118. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,6:POKEUX,6
  119. 1005 UT$=" ALPHABET":UP=0
  120. 1010 DEFFNR(X)=INT(RND(TI)*X+1):QU$="[157][160][172][187][157][157][146][172][190][157][157][161][157][146][172][160][160]":D$=""
  121. 1040 FORI=1TO26:READU$(I):NEXT
  122. 1050 IFUW<>0THENFORI=826TO857:READA:POKEI,A:NEXT
  123. 1059 N$=""
  124. 1060 PRINT"[147]":GOSUB860:GOSUB760
  125. 1061 PRINT" PLEASE ENTER YOUR NAME: ";:US$=ST$:UL=14:GOSUB35:N$=UR$
  126. 1150 PRINT"        HI "N$" !"
  127. 1210 W0=0:TU=0:CO=0:GOSUB760
  128. 1212 PRINT" ENTER YOUR LEVEL (1/2/3): ";:US$="123?":UL=1:GOSUB35:L=VAL(UR$)
  129. 1220 PRINT"[147]":IFTU=10THEN 1900
  130. 1225 GOSUB791:UG$="  SEQUENCE #":PRINT"[147]"
  131. 1230 Y=FNR(21):FORI=1TOL:P(I)=FNR(6)-1
  132. 1235 P(I)=FNR(6)-1:IFP(I)+Y=8THEN1235
  133. 1240 FORJ=1TOI-1:IFI=1GOTO1260
  134. 1250 IFP(I)=P(J)THENP(I)=FNR(6)-1:GOTO1240
  135. 1260 NEXT:NEXT:IFP(1)>P(2)THENW=P(1):P(1)=P(2):P(2)=W
  136. 1270 IFP(1)>P(3)THENW=P(1):P(1)=P(3):P(3)=W
  137. 1280 IFP(2)>P(3)THENW=P(2):P(2)=P(3):P(3)=W
  138. 1290 IFL=2THENP(1)=P(2):P(2)=P(3):P(3)=0
  139. 1300 IFL=1THENP(1)=P(3):P(3)=0
  140. 1310 PRINT"";:FORI=YTOY+5
  141. 1320 FORJ=1TOL
  142. 1330 IFI=P(J)+YTHENPRINTQU$"[145][145][145]";:J=L:NEXT:NEXT:GOTO1360
  143. 1340 NEXT
  144. 1350 PRINTU$(I)"[145][145][145]";:NEXT
  145. 1360 FORK=1TOL:RM=0
  146. 1370 C$="":PRINTC$;:GOSUB2200
  147. 1380 PRINTD$;:FORI=1TO5:PRINTUP$:NEXT
  148. 1390 ML$="FIRST":IFK>1THENML$="NEXT"
  149. 1395 GOSUB760:PRINT""D$" WHAT IS THE "ML$" MISSING LETTER ? ";:UL=1
  150. 1400 US$=ST$:GOSUB35:G$=UR$
  151. 1410 IFASC(G$)<65ORASC(G$)>90THEN1390
  152. 1420 IFASC(G$)-64=P(K)+YGOTO1470
  153. 1430 GOTO1820
  154. 1470 GOSUB700:PRINT"";:FORI=1TO12:PRINT" "N$", YOU'RE RIGHT!!":H=30:GOSUB2230
  155. 1480 PRINT"[145] "N$", YOU'RE RIGHT!![145][155]":GOSUB2230:NEXT
  156. 1490 CO=CO+1:TU=TU+1:PRINTD$;:FORI=1TO5                     
  157. 1500 PRINTUP$:NEXT
  158. 1510 PRINT"[160]";:FORI=1TO10:PRINT"[157][160]";:NEXT:PRINT"";LEFT$(UD$,24);UP$;""
  159. 1520 P=US+284+P(K)*5:IFP(K)>2THENS0=39:QW=78:GOTO1540
  160. 1530 S0=41:QW=77
  161. 1540 FORI=1TO14:P=P+S0:POKEP,96:POKEP+40,96:NEXT:P=US+559
  162. 1550 GOSUB2080
  163. 1560 O=P-S-S0:POKEO,QW
  164. 1570 O=O-S0:J=PEEK(O):IFJ<>32THENPOKEO+S0,32:GOTO1590
  165. 1580 POKEO+S0,32:POKEO,QW:GOTO1570
  166. 1590 IFUW<>0THENFORI=1TO10:SYS826:NEXT
  167. 1595 IFUW=0THENFORI=1TO10:POKEUY,15:POKEUU,6
  168. 1596 IFUW=0THENFORJI=1TO5:NEXTJI:POKEUY,6:POKEUU,1
  169. 1597 IFUW=0THENFORJI=1TO10:NEXTJI:NEXTI
  170. 1600 PRINTC$;U$(P(K)+Y)
  171. 1610 PRINTD$;:FORI=1TO13:PRINT"[160]"LEFT$(UP$,38):NEXT
  172. 1620 PRINT""
  173. 1630 POKEP,81:POKEP-1,107:POKEP+1,115
  174. 1640 GOSUB2080:GOTO1770
  175. 1650 S=39
  176. 1660 P=P+S:GOSUB2180:PRINTC$;:FORI=1TO4:PRINTF0$"[157][157][157]";:NEXT
  177. 1670 X=FNR(3):IFX=3THENS=-41:GOTO1700
  178. 1680 IFX=2THENS=-1:GOTO1700
  179. 1690 S=39
  180. 1700 P=P+S
  181. 1710 IFP>US+991THENP=P-S:S=-41:GOTO1700
  182. 1720 GOSUB2180:NEXT:PRINT"!"
  183. 1740 IFX=2THENS=-1:GOTO1760
  184. 1750 S=39
  185. 1770 P=P-S-1:POKEP,81:POKEP+1,115:POKEP+2,32
  186. 1780 POKEP,115:POKEP+1,32:POKEP,32
  187. 1790 PRINTD$;:FORI=1TO13:PRINT"[160]"LEFT$(UP$,38):NEXT
  188. 1800 PRINTUP$""
  189. 1810 NEXT:GOTO1220
  190. 1820 PRINTD$;:FORI=1TO5:PRINTUP$:NEXT
  191. 1830 IFRM=1THENRM=0:GOTO1860
  192. 1840 GOSUB730:PRINTD$;"[150] YOU'RE WRONG...TRY AGAIN[155]":H=1000:GOSUB2230
  193. 1850 PRINTD$;UP$:RM=1:GOTO1390
  194. 1860 GOSUB730:GOSUB730:PRINT"[150]"
  195. 1865 PRINT" YOU'RE WRONG AGAIN."
  196. 1870 PRINT" THE CORRECT ANSWER IS...^"CHR$(P(K)+Y+6)
  197. 1875 PRINT"[155]":FORI=1TO4:PRINTC$""U$(P(K)+Y):H=250:GOSUB2230
  198. 1880 PRINTC$;U$(P(K)+Y):GOSUB2230:NEXT:W0=W0+1:TU=TU+1:NEXT
  199. 1890 H=2000:GOSUB2230:GOTO1220
  200. 1900 PRINT"[147]":FORI=USTOUS+39:POKEI,102:POKEI+160,102:POKEI+600,102:NEXT
  201. 1910 FORI=US+40TOUS+580STEP40:POKEI,102:POKEI+39,102:NEXT
  202. 1915 POKE53280,0:POKE53281,0:POKE646,3    
  203. 1920 PRINT"       HERE ARE YOUR RESULTS":GOSUB760:GOSUB791
  204. 1925 PRINT" NUMBER OF QUESTIONS:"TU :GOSUB760:GOSUB790
  205. 1930 PRINT" NUMBER OF CORRECT ANSWERS:"CO:GOSUB700:GOSUB790
  206. 1935 PRINT" NUMBER OF WRONG ANSWERS:"W0:GOSUB730:GOSUB792
  207. 1940 G=INT(CO/TU*100+.5)
  208. 1945 PRINT" YOUR SCORE:"G:GOSUB760:GOSUB760
  209. 1950 GOSUB835
  210. 1955 PRINT"[147]  YOU HAVE A CHOICE:
  211. 1960 [153]"  PRESS  P WAIT RO PLAY AGAIN
  212. 1965 PRINT"  PRESS  M [146] TO RETURN TO THE MENU
  213. 1970 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]1970
  214. 1975 [139]R$[178]"P"[167] [140]:[137]1000
  215. 1985 [153]"LOAD RETURNING TO THE DISK MENU"
  216. 1990 [147]"MENU",8
  217. 1994 [138]
  218. 1996 [128]
  219. 2080 X[178][165]R(3):[139]X[178]1[167]S[178][171]41:[137]2110
  220. 2090 [139]X[178]2[167]S[178][171]1:[137]2110
  221. 2100 S[178]39
  222. 2110 P[178]P[170]S:J[178][194](P)
  223. 2120 [139]P[179]US[170]358[167]P[178]P[171]S:S[178]39:[137]2110
  224. 2130 [139]P[177]US[170]911[167]P[178]P[171]S:S[178][171]41:[137]2110
  225. 2140 [139]J[178]96[167][142]
  226. 2150 [139]J[178]107[175][194](P[171]1)[178]96[167][141]2180:[142]
  227. 2160 [139]J[179][177]32[167]P[178]P[171]S:S[178]39:[137]2110
  228. 2170 [141]2180:[137]2080
  229. 2180 [151]P[171]S[171]1,32:[151]P[171]S,32:[151]P[171]S[170]1,32:[151]P[170]1,115:[151]P,81:[151]P[171]1,107
  230. 2190 [142]
  231. 2200 [159]1,3:[129]FG[178]1[164]45:[161]#1,G$:[139]G$[179][177]"CLOSE"[167]C$[178]C$[170]"":[130]
  232. 2210 FG[178]50:[130]:[160]1:[142]
  233. 2220 [128]
  234. 2230 [129]F[178]1[164]H:[130]:[142]
  235. 2500 [131]"(null)TAB((null)CMDCMDCMD(null)TOSQRCMDCMDCMDFNCLOSETHENCMDCMDCMDFN THEN","(null)TAB((null)CMDCMDCMD(null)TO(null)CMDCMDCMDFNCLOSE(null)CMDCMDCMD(null)TO(null)"
  236. 2510 [131]"(null)TAB((null)CMDCMDCMDFN  CMDCMDCMDFN  CMDCMDCMD(null)TO(null)","(null)TAB((null)CMDCMDCMDFN THENCMDCMDCMDFNCLOSETHENCMDCMDCMD(null)TO(null)"
  237. 2520 [131]"(null)TAB(TAB(CMDCMDCMD(null)TO CMDCMDCMDFN  CMDCMDCMD(null)TOTO","(null)TAB(TAB(CMDCMDCMD(null)TO CMDCMDCMDFN  CMDCMDCMDFN  "
  238. 2530 [131]"(null)TAB((null)CMDCMDCMDFN  CMDCMDCMDFN (null)CMDCMDCMD(null)TO(null)","FN THENCMDCMDCMD(null)TOSQRCMDCMDCMDFN THENCMDCMDCMDFN THEN"
  239. 2540 [131]" (null)TAB(CMDCMDCMD THEN CMDCMDCMD THEN CMDCMDCMD SQRTO"," (null)TAB(CMDCMDCMD THEN CMDCMDCMD THEN CMDCMDCMD(null)(null) "
  240. 2550 [131]"THEN (null)CMDCMDCMDTHEN(null) CMDCMDCMDTHEN(null) CMDCMDCMDTHEN (null)","THEN  CMDCMDCMDTHEN  CMDCMDCMDTHEN  CMDCMDCMDTHENTOTO"
  241. 2560 [131]"THEN(null)(null)FNCMDCMDCMDCMDTHEN  FNCMDCMDCMDCMDTHEN  FNCMDCMDCMDCMDTHEN  FN","THEN(null) FNCMDCMDCMDCMDTHENTHEN FNCMDCMDCMDCMDTHENTHEN FNCMDCMDCMDCMDTHEN (null)FN"
  242. 2570 [131]"(null)TAB((null)CMDCMDCMDFNCLOSETHENCMDCMDCMDFNCLOSETHENCMDCMDCMD(null)TO(null)","(null)TAB((null)CMDCMDCMD(null)TO(null)CMDCMDCMDFN  CMDCMDCMDFN  "
  243. 2580 [131]"(null)TAB((null)CMDCMDCMDFNCLOSETHENCMDCMDCMDFNCLOSETHENCMDCMDCMD(null)TO(null)","(null)TAB((null)CMDCMDCMD(null)TO(null)CMDCMDCMDFN(null) CMDCMDCMDFN (null)"
  244. 2590 [131]"(null)TAB((null)CMDCMDCMD(null)TO CMDCMDCMD  (null)CMDCMDCMD(null)TO(null)","ONTOTOTOCMDCMDCMD (null) CMDCMDCMD (null) CMDCMDCMD (null) CMDCMDCMD (null) "
  245. 2600 [131]"FN THENCMDCMDCMDFNCLOSETHENCMDCMDCMDFNCLOSETHENCMDCMDCMD(null)TOSQR","THEN THENCMDCMDCMDTHENCLOSETHENCMDCMDCMDTHENCLOSETHENCMDCMDCMDCLOSE(null)(null)"
  246. 2610 [131]"THEN  FNCMDCMDCMDCMDTHEN  FNCMDCMDCMDCMDTHEN  FNCMDCMDCMDCMDTHEN(null)(null)FN","(null)  (null)CMDCMDCMDCMD (null)(null) CMDCMDCMDCMD (null)(null) CMDCMDCMDCMD(null)  (null)"
  247. 2620 [131]"FNCLOSETHENCMDCMDCMD(null)TO(null)CMDCMDCMD (null) CMDCMDCMD (null) "
  248. 2630 [131]"ONTOTOTOTOCMDCMDCMDCMDCLOSE  (null)CMDCMDCMDCMD  (null) CMDCMDCMDCMD (null)  CMDCMDCMDCMD(null)   CMDCMDCMDCMDTAB(TAB(TAB(TAB(ON
  249. 2640 DATA162,128,160,0,132,33,134,34,177,33,73,128,145,33,200,208,247,232,224
  250. 2650 DATA132,208,240,96,173,17,232,73,8,141,17,232,96
  251. 2700 REM WHC 90:11:28
  252.